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1-002 =-SEP-19 7 9133 2:3) } YA TARTL SRC IRTHORAGO. MARS 1 ° (1) 


E MINS ABAXO JMAXO and AJMAXO functions 
T /1-002/ 3 File: MTHJMAXO.MAR 


MARARARAASAALAALAAALAALALA AAA L ELAS AREER SESE ATER ERASER REET EEE SERRE TEER TEESE 


COPYRIGHT ‘ee 1978, 1980, 1982, 1984 BY 
IGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
L RIGHTS RESERVED. 


SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
IN ACCORDANCE WITH THE TERMS OF SUCH License AND WITH THE 
SION OF THE ABOVE Se a acee NOTICE. THIS SOFTWARE OR ANY OTHER 
S THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
a 
* 
% 
* 
* 
* 
* 
% 
* 
NGFERRED. * 
« 
* 
* 
* 
* 
* 
* 
© 
* 
* 


oh Ht bs 9 


INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
mPORaT ioe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


GITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
FTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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LARA RAARSAAAAAALAAALALA SALAS E SALES EASA ESE EERE E ARERR EERE RARER RRR REARS SO 


FACILITY: MATH LIBRARY 
"ABSTRACT: 


VERSION: 0 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 12-JUL-77: Version 0 


MODIFIED BY: 
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4 -SBTTL HISTORY 3; Detailed Current Edit History 


mga in 


; Edit History for Version 0 of MTHJMAX0 


: a - Fix access violation. TNH 16-Aug-78 
; 3 9} - Kogene version number and copyright notice. . 16-NOV-78 
5; 1- - Add "'."’ to the PSECT directive. JBS 22-DEC-7 
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«SBTTL DECLARATIONS 


: INCLUDE FILES: 
: EXTERNAL SYMBOLS: 


> MACROS: 


PSECT D og 


CLARATIONS: 
0000 -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 


FW O ODNAUE Wt OOOn 


+ EQUATE SYMBOLS: 


Datta ein tet ip en ees 


oO 


: OWN STORAGE: 


— 
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MTHSJMAXO JMAXO and AJMAXO functions 16-SEP-1984 01:45:39 VAX/VM ro V04-0 
1-002 THSAJMAXO g: 9 ESAT MOMAKD.MAR: 1 (4) 


Ss 
MTHSJMAXO, M SEP=1984 11:26:51 CMTHRTL. 
-SBTTL MTHSJMAXO, MTHSAJMAXO 


p++ 
; FUNCTIONAL DESCRIPTION: 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 


CALLING SEQUENCE: 

: NONE 
5 : INPUT PARAMETERS: 
° : NONE 

> IMPLICIT INPUTS: 
; NONE 
0 + OUTPUT PARAMETERS: 
: NONE 
0 : IMPLICIT OUTPUTS: 
0 ; NONE 
0 3 
0 ; 
0 3 
0 ; 
0 ; 
0 ; 


WA WANA AAA AIRINININVININNNIININ + 4 4 4 3 3 ADDODOOS 000000000.0.0.0.0Macaa000000 


DOONAN EWN 9 OOD NIA NE WIN OOD NAME WIN @ OOD NAUNE WN SO OO NOAUE WO OONOULW 


oa 
BS 
a 
. 1 
1 
0 1 
eo 
0 1 
Es 
su 
0000 1 
0000 1 -- 
0000 1 
0000 1 
8 00 1 
00 1 
0000 8 83 1 ENTRY MTHSJMAXO, “M<> 
09 10 0 1 BSB MAXL ; RO = max arg 
04 0 be : RET 
0000 aS eENTRY MTHSAJMAXO, “M<> 
04 10 07 1 BSB MAXL 3; RO = max arg 
50 50 4€ 09 1 CVTLF RO, RO : float it 
04 oc 1 RET 
Bie, 
: ! 3; MAXL returns the maximum of INTEGER*4 args. 
pe 
D 129 MAXL 
51 6C QA D 1 MOVZBL (AP), R1 ; R1 = number of orgs 
ac D5 1 1 TSTL (AP) + ; AP => first arg adr 
50 99 1 132 1$ MOVL Art RO 3 get trial max 
0 1 1 1 BRB $ ; check arg count : 
50 008 D1 1 134 2$ CMPL @0(AP) RO ; if this arg is greater then trial max 
F 14 1B BGTR 1$ ; then it becomes trial max 
af D5 1D 1 TSTL (AP) + ; else ignore it 
F5 51—s#F 5 1F 137 3$ SOBGTR R1, 2% ; check arg count 
05 $8 } RSB 


N 4 
SUMARO, ATNSAJMARO o® "BSER19RS V1 i38i3) EATANTL. SRESArHomaNO.man;1 29° 2) 


008812? .END 
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MTHSJMAXO JMAXO and AJMAXO functions 19-3 p= 1888 91:33:39 AX/VMS Macro Lyn mts Page $ 
Symbol table -SEP-1984 11:26:31 CMTHRTL.SRCJIMTHJMAXO.MAR; 1 (4) 
mat R 1 
MTHSAJMAXO 5 RG 1 
MTHSJMAXO RG 1 

saan mae era enwece + 

! Psect synopsis ; 
PSECT name Al Location PSECT No. Attributes 
- ABS. 08800008 ( 9. 20 ( Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 0000 [ Beat WE Vor PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

tom omae none eee eer eam mane + 
H Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 
Initialization 3 0:00:00.1 8:00:00.7¢ 
Saeco: "se SBRRBRGE BRE 
Symbol table sort 0 0:00: 0.94 9:09:00:01 
Pass 2 39 bs Bo 4S 2 00:00:01.70 
Symbol table output 0:00:00.01 8 80 Og 
Psect synopsis output 00:00:00.02 0:00:00.0 
Cross-reference output 00:00: 9-8 0:00:00.00 
Assembler run totals 26 00:00:01.39 00:00:06.66 


The working get Limit was 750 pages. 
1511 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 


pages of symbol table space allocated to hold 3 non-local and local symbols. 
141 source Lines were read in Pass 1, producing 13 object records in Pass 2. 
0 pages of virtual memory were used to define 0 macros. 


+ 
: Macro Library statistics H 
Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB; 2 0 
0 GETS were required to define 0 macros. 
There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHJMAX0/OBJ=OBJ$:MTHJMAXO MSRC$:MTHJMAX0/UPDATE=(ENHS : MTHJMAXO) 
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